home *** CD-ROM | disk | FTP | other *** search
/ Light ROM 1 / LIGHT-ROM 1 (Amiga Library Services)(1994).iso / ffdisks / d910.lha / PowerCache / Installation / Workbench2.1+ / Install_PowerCache < prev    next >
Text File  |  1993-08-28  |  21KB  |  595 lines
  1. ; $VER: Install_PowerCache 37.37 (13.06.1993)
  2. ;
  3. ; Install script for PowerCache (Workbench 2.1 or higher)
  4. ;
  5. ; Distributed as a part of the PowerCache project.
  6. ; PowerCache is Copyright (C) 1993 by Michael Berg
  7. ; All righs reserved
  8. ;
  9.  
  10. (set @default-dest "")
  11. (set old_level @user-level)
  12.  
  13. ; File- and directory names of what we're going to install
  14. ;
  15. (set reqtoolslib    "//libs/reqtools.library")
  16. (set PowerCache        "//PowerCache")
  17. (set PowerCache020    "//PowerCache.020")
  18. (set DocDir        "//Documentation")
  19. (set CreateDir        "PowerCache")
  20. (set catalogdir        "/Locale/Catalogs/")
  21.  
  22. ;***************************************************************************
  23. ; English strings
  24. ;
  25. ; Translation: Native
  26. ;***************************************************************************
  27.  
  28. (set default_lang 1)
  29.  
  30. (set #targetstr           "In which directory should PowerCache be installed?")
  31. (set #targetsel           (cat "\nPlease select the directory or partition in which you would like "
  32.                 "PowerCache installed (a directory named 'PowerCache' will be created "
  33.                 "in the directory you select)\n\nClick PROCEED to start the installation process.\n\n"
  34.                 @askdir-help))
  35.  
  36. (set #bad-kick           "You must be using Kickstart 2.04+ to install PowerCache using this script!")
  37. (set #fixing-ss           "Correcting User-Startup file...")
  38. (set #makingdir           "Creating PowerCache directory...")
  39. (set #copying-reqtools     "Copying reqtools.library to LIBS:")
  40. (set #copying-PowerCache   "Copying PowerCache...")
  41. (set #copying-docs       "Copying PowerCache documentation...")
  42. (set #copying-docs-help       (cat "PowerCache has extensive online help. This part "
  43.                 "of the installation will copy the help files to "
  44.                 "a directory called 'Documentation' in the target "
  45.                 "directory.\n\n"
  46.                 @makedir-help
  47.                 @copyfiles-help))
  48.  
  49. (set #which-language       ("\nWhich languages should be installed?"))
  50. (set #what-versions       ("\nWhich version(s) would you like to install?"))
  51. (set #what-versions-help   (cat "\nTwo versions of PowerCache are provided. One version, "
  52.                 "the 68000 version, will work on all machines, whilst the "
  53.                 "other requires a 68020 (or better) "
  54.                 "equipped machine. If you have an Amiga 1200, Amiga 2500, "
  55.                 "Amiga 3000 or Amiga 4000, or an accellerator board in your machine, "
  56.                 "then select to install the 68020 version. This version uses "
  57.                 "some special instructions of the 68020 to boost performance.\n\n"
  58.                 "You may install both versions of PowerCache if you wish.\n\n"
  59.                 @askoptions-help))
  60.  
  61. (set #pc_68000            "PowerCache 68000")
  62. (set #pc_68020            "PowerCache 68020+")
  63.  
  64. (set #which-language-help  (cat "\nThe Amiga can be operated in many different "
  65.                 "languages. If you want PowerCache to "
  66.                 "use the same language as the Amiga Workbench "
  67.                 "then a catalog file must be copied to your "
  68.                 "system disk for each language supported.\n\n"
  69.                 "To reduce the amount of space consumed by the "
  70.                 "language files, you can select to have only the "
  71.                 "files of specific languages copied.\n\n"
  72.                 "Simply check the boxes of the languages you wish "
  73.                 "to have available on your system.\n\n"
  74.                 @askoptions-help))
  75.  
  76. (set #startup-help       (cat "\nAlthough not strictly required, it is recommended that "
  77.                 "PowerCache: is assigned to PowerCache's home directory when "
  78.                 "using the program. This can be done by hand, using the "
  79.                 "AmigaDOS 'Assign' command, or automatically, using this "
  80.                 "installation script.\n\n"
  81.                 "Two things will happen:\n\n"
  82.                 "· The Installer will check if your startup-sequence\n"
  83.                 "  executes the file S:User-Startup, and will modify\n"
  84.                 "  it to do so, if necessary.\n\n"
  85.                 "· The Installer will look through the S:User-Startup\n"
  86.                 "  file and insert the correct Assign statements where\n"
  87.                 "  appropriate.\n\n"
  88.                 @startup-help))
  89.  
  90.  
  91. ;***************************************************************************
  92. ; German strings
  93. ;
  94. ; Translation: Gerhard Kupka
  95. ;***************************************************************************
  96.  
  97. (if (= @language "deutsch")
  98. (
  99.     (set default_lang 16)
  100.  
  101.     (set #targetstr       "In welchem Verzeichnis soll PowerCache installiert werden?")
  102.     (set #targetsel    (cat "\nBitte wählen Sie das Verzeichnis oder die Partition, in der Sie wünschen, "
  103.                 "PowerCache zu installieren (ein Verzeichnis 'PowerCache' wird im gewählten "
  104.                 "Verzeichnis erzeugt )\n\nEin Klick auf PROCEED startet die Installation.\n\n"
  105.                 @askdir-help))
  106.  
  107.     (set #bad-kick        "Sie brauchen Kickstart 2.04+ to PowerCache mit diesem Script zu installieren!")
  108.     (set #fixing-ss        "Korrigiere das File User-Startup...")
  109.     (set #makingdir        "Erstelle PowerCache Verzeichnis...")
  110.  
  111.     (set #copying-reqtools     "Kopiere die reqtools.library nach LIBS:")
  112.     (set #copying-PowerCache "Kopiere PowerCache...")
  113.     (set #copying-docs     "Kopiere PowerCache Dokumentation...")
  114.  
  115.     (set #copying-docs-help
  116.                (cat "PowerCache hat eine umfangreiche Online Hilfe. Dieser Teil "
  117.                 "der Installation kopiert die Hilfe Files in ein Verzeichnis "
  118.                 "mit dem Namen 'Dokumentation', das sich im Ziel-Verzeichnis "
  119.                 "befindet.\n\n"
  120.                 @makedir-help
  121.                 @copyfiles-help))
  122.  
  123.     (set #which-language  "\nWelche Sprachen sollen installiert werden?")
  124.  
  125.     (set #what-versions   "\nWelche Version(en) wollen Sie installieren?")
  126.  
  127.     (set #what-versions-help
  128.                (cat "\nEs gibt 2 Versions von PowerCache. Eine Version, "
  129.                 "die 68000er Version, arbeitet auf allen Maschinen, während "
  130.                 "die andere eine Maschine mit einem 68020 (oder besser) "
  131.                 "benötigt. Wenn Sie einen Amiga 1200, Amiga 2500, Amiga 3000 "
  132.                 "oder Amiga 4000, oder eine Turbokarte in Ihrer Maschine haben, "
  133.                 "dann installieren Sie die 68020er Version. Diese Version nutzt "
  134.                 "spezielle Instruktionen des 68020 zur Leistungssteigerung.\n\n"
  135.                 "Sie können auch beide Versionen von PowerCache installieren.\n\n"
  136.                 @askoptions-help))
  137.  
  138.     (set #pc_68000       "PowerCache 68000")
  139.     (set #pc_68020       "PowerCache 68020+")
  140.  
  141.     (set #which-language-help
  142.                (cat "\nDer Amiga kann in vielen Sprachen betrieben "
  143.                 "erden. Wenn Sie PowerCache in derselben Sprache"
  144.                 "wie die Amiga Workbench nutzen wollen, dann muß "
  145.                 "ein catalog File für jede gewünschte Sprache auf "
  146.                                 "Ihre System Diskette kopiert werden.\n\n"
  147.                 "Um den Platzbedarf für die Sprachen Files zu "
  148.                 "reduzieren, können Sie Files für bestimmte "
  149.                 "zum Kopieren auswählen.\n\n"
  150.                 "Klicken Sie einfach die Sprachen an, die Sie in"
  151.                 "Ihrem System verfügbar haben wollen.\n\n"
  152.                 @askoptions-help))
  153.  
  154.     (set #startup-help
  155.                (cat "\nObwohl nicht zwingend erforderlich, wird empfohlen, daß "
  156.                 "Assignment auf das PowerCache Verzeichnis gesetzt wird. "
  157.                 "Das ist möglich von Hand mit dem AmigaDOS Befehl 'Assign' "
  158.                 "oder automatisch mit diesem Installations Script\n\n "
  159.                 "Zwei Dinge passieren jetzt:\n\n"
  160.                 "· Der Installer prüft ob Ihre 'startup-sequence' das\n"
  161.                 "  File S:User-Startup ausführt, und modifiziert ggf.\n"
  162.                 "  Ihre 'startup-sequence' entspechend.\n\n"
  163.                 "· Dann prüft der Installer das File 'S:User-Startup'\n"
  164.                 "  und fügt das korrekte Assignment an der richtigen\n"
  165.                 "  Stelle ein.\n\n"
  166.                 @startup-help))
  167. ))
  168.  
  169. ;***************************************************************************
  170. ; Danish strings
  171. ;
  172. ; Translation: Michael Berg
  173. ;***************************************************************************
  174.  
  175. (if (= @language "dansk")
  176. (
  177.     (set default_lang 2)
  178.  
  179.     (set #targetstr    "I hvilket katalog skal PowerCache installeres?")
  180.     (set #targetsel       (cat "\nVælg det katalog eller den partition som PowerCache ønskes "
  181.                 "installeret i (et katalog ved navn 'PowerCache' vil blive "
  182.                 "oprettet i kataloget De vælger)\n\nTryk på PROCEED for at starte "
  183.                 "installeringen.\n\n"
  184.                 @askdir-help))
  185.  
  186.     (set #bad-kick       (cat    "De har brug for Kickstart 2.04+ for at kunne installere "
  187.                 "PowerCache med dette installationsprogram"))
  188.  
  189.     (set #fixing-ss        "Retter User-Startup fil...")
  190.     (set #makingdir        "Opretter PowerCache katalog...")
  191.  
  192.     (set #copying-reqtools    "Kopierer reqtools.library til LIBS:")
  193.     (set #copying-PowerCache "Kopierer PowerCache...")
  194.     (set #copying-docs    "Kopierer PowerCache dokumentation...")
  195.  
  196.     (set #copying-docs-help
  197.                (cat "PowerCache har omfattende online hjælp. Denne del "
  198.                 "af installationen vil kopiere hjælpefilerne til "
  199.                 "et katalog kaldet 'Documentation' i destinations "
  200.                 "kataloget\n\n"
  201.                 @makedir-help
  202.                 @copyfiles-help))
  203.  
  204.     (set #which-language    "\nHvilke(t) sprog ønsker De at installere?")
  205.  
  206.     (set #what-versions    "\nHvilke(n) version(er) ønsker De at installere?")
  207.     (set #what-versions-help
  208.                (cat    "\nPowerCache leveres i to versioner. Den ene, 68000 versionen, "
  209.                 "vil virke på alle maskiner, mens den anden "
  210.                 "kræver en 68020 (eller bedre) maskine. Hvis De har en Amiga 1200, "
  211.                 "Amiga 2500, Amiga 3000 eller Amiga 4000, eller hvis De har et "
  212.                 "accelleratorkort i Deres maskine, så bør De installere 68020 "
  213.                 "versionen. Denne version benytter specielle, udvalgte 68020 "
  214.                 "instruktioner der forbedrer programmets ydeevne.\n\nDe kan "
  215.                 "installere begge versioner af PowerCache hvis De ønsker.\n\n"
  216.                 @askoptions-help))
  217.  
  218.     (set #pc_68000        "PowerCache 68000")
  219.     (set #pc_68020        "PowerCache 68020+")
  220.  
  221.     (set #which-language-help
  222.                (cat    "\nAmigaen kan benyttes i mange forskellige sprog.\n"
  223.                 "Hvis De ønsker at PowerCache skal benytte samme sprog "
  224.                 "som Amiga Workbench, så skal der kopieres en katalogfil "
  225.                 "til Deres systemdisk for hvert sprog.\n\n"
  226.                 "For at reducere sprogfilernes pladsforbrug kan De vælge "
  227.                 "kun at installere det eller de sprog installeret som "
  228.                 "De har brug for.\n\n"
  229.                 "Klik i kasserne ud for de sprog De ønsker at have tilgængelige "
  230.                 "på Deres system.\n\n"
  231.                 @askoptions-help))
  232.  
  233.     (set #startup-help
  234.                (cat    "\nSelvom det ikke er strengt nødvendigt, anbefales "
  235.                 "det at PowerCache: knyttes til PowerCache's hjemme katalog "
  236.                 "når programmet anvendes. Dette kan gøres med håndkraft, v.hj.a. "
  237.                 "AmigaDOS kommandoen 'Assign', eller automatisk, v.hj.a. dette "
  238.                 "installations program.\n\n"
  239.                 "To ting vil ske:\n\n"
  240.                 "· The Installer vil checke om Deres startup-sequence\n"
  241.                 "  udfører filen S:User-Startup, og om nødvendigt\n"
  242.                 "  ændre den så dette sker.\n\n"
  243.                 "· The Installer vil kigge S:User-Startup filen igennem\n"
  244.                 "  og indsætte de korrekte Assign kommandoer hvor\n"
  245.                 "  det er nødvendigt.\n\n"
  246.                 @startup-help))
  247. ))
  248.  
  249. ;***************************************************************************
  250. ; French strings
  251. ;
  252. ; Translation: Reza ELGHAZI
  253. ;***************************************************************************
  254.  
  255. (if (= @language "français")
  256. (
  257.     (set default_lang 4)
  258.  
  259.     (set #targetstr           ("Dans quel tiroir PowerCache doit-il être installé?"))
  260.     (set #targetsel           (cat "\nChoisissez la partition ou le tiroir de destination "
  261.                     "dans lequel PowerCache sera installé.\n"
  262.                     "(un tiroir nommé 'PowerCache' y sera créé)\n\n"
  263.                     "Cliquez sur \"Continuer\" pour commencer le processus "
  264.                     "d'installation.\n\n"
  265.                     @askdir-help))
  266.  
  267.     (set #bad-kick           "Il vous faut utiliser le Kickstart 2.04+ pour installer PowerCache avec ce script!")
  268.     (set #fixing-ss           "Correction du fichier User-Startup...")
  269.     (set #makingdir           "Création du tiroir PowerCache...")
  270.     (set #copying-reqtools     "Copie de la reqtools.library vers LIBS:")
  271.     (set #copying-PowerCache   "Copie de PowerCache...")
  272.     (set #copying-docs       "Copie de la documentation de PowerCache...")
  273.     (set #copying-docs-help       (cat "    PowerCache dispose d'une aide en ligne étendue.\n"
  274.                     "Cette partie de l'installation copiera les fichiers "
  275.                     "d'aide vers un tiroir nommé 'Documentation' dans le "
  276.                     "tiroir de destination.\n\n"
  277.                     @makedir-help
  278.                     @copyfiles-help))
  279.  
  280.     (set #which-language       ("\nQuelles sont les langages à installer ?"))
  281.     (set #what-versions       ("\nQuelle(s) version(s) voulez-vous installer?"))
  282.     (set #what-versions-help   (cat "\n    Deux versions de PowerCache sont disponibles.\n"
  283.                     "L'une pour 68000, fonctionne sur toutes les machines, "
  284.                     "alors que l'autre nécessite un Amiga à base de 68020 "
  285.                     "(ou mieux).\n"
  286.                     "Si vous possédez un Amiga 1200, 2500, 3000, 4000 ou "
  287.                     "une carte accélératrice, alors installez la version "
  288.                     "pour 68020. Cette version, aux performances étendues, "
  289.                     "utilise certaines instructions propres au 68020.\n\n"
  290.                     "Vous pouvez aussi, si vous le voulez, installer les "
  291.                     "deux versions de PowerCache.\n\n"
  292.                     @askoptions-help))
  293.  
  294.     (set #pc_68000            "PowerCache 68000")
  295.     (set #pc_68020            "PowerCache 68020+")
  296.  
  297.     (set #which-language-help  (cat "\nL'Amiga peut fonctionner dans différentes langues.\n"
  298.                     "Si vous voulez que PowerCache utilise le même langage "
  299.                     "que celui de l'atelier (Workbench), alors un fichier "
  300.                     "catalogue devra être copié vers votre disque système "
  301.                     "pour chaque langage utilisé.\n\n"
  302.                     "Pour réduire la quantité d'espace utilisé par ces fichiers, "
  303.                     "vous devez sélectionner seulement les langages qui vous seront "
  304.                     "utiles.\n\n"
  305.                     @askoptions-help))
  306.  
  307.     (set #startup-help       (cat "\nBienque non strictement nécéssaire, il est recommandé "
  308.                     "à l'utilisation du programme, d'assigner PowerCache: au "
  309.                     "tiroir principal de PowerCache.\n"
  310.                     "Cela peut être éffectué à la main par la commande "
  311.                     "AmigaDOS 'Assign', ou alors automatiquement grâce à "
  312.                     "ce script d'installation.\n\n"
  313.                     "Deux choses vont se passer:\n\n"
  314.                     ". 'Installer' va vérifier si votre startup-sequence\n"
  315.                     "  execute le fichier S:User-Startup et le modifiera\n"
  316.                     "  si nécessaire.\n\n"
  317.                     "· 'Installer' scrutera le fichier S:User-Startup et y\n"
  318.                     "  insérera la déclaration de Assign au bon endroit.\n\n"
  319.                     @startup-help))
  320. ))
  321.  
  322. ;***************************************************************************
  323. ; Norwegian strings
  324. ;
  325. ; Translation: Mario Gonzalez
  326. ;***************************************************************************
  327.  
  328. (if (= @language "norsk")
  329. (
  330.     (set default_lang 8)
  331.  
  332.     (set #targetstr         ("I hvilken skuff skal PowerCache installeres?"))
  333.     (set #targetsel        (cat "\nVelg den skuff eller det område som PowerCache ønskes "
  334.                 "installert i (en skuff ved navn 'PowerCache' vil bli "
  335.                 "opprettet i området du velger)\n\nTrykk på 'Fortsett' for å starte "
  336.                 "installeringen.\n\n"
  337.                 @askdir-help))
  338.  
  339.     (set #bad-kick       (cat    "Du må ha Kickstart 2.04+ for å kunne installere "
  340.                 "PowerCache med dette installasjonsprogrammet"))
  341.  
  342.     (set #fixing-ss        "Retter User-Startup fil...")
  343.     (set #makingdir        "Oppretter PowerCache skuff...")
  344.  
  345.     (set #copying-reqtools    "Kopierer reqtools.library til LIBS:")
  346.     (set #copying-PowerCache "Kopierer PowerCache...")
  347.     (set #copying-docs    "Kopierer PowerCache dokumentasjon...")
  348.  
  349.     (set #copying-docs-help
  350.                (cat "PowerCache har omfattende online hjelp. Denne del "
  351.                 "av installasjonen vil kopiere hjelpefilene til "
  352.                 "en skuff kalt 'Documentation' i destinasjons "
  353.                 "området\n\n"
  354.                 @makedir-help
  355.                 @copyfiles-help))
  356.  
  357.     (set #which-language    "\nHvilke(t) språk skal installeres?")
  358.  
  359.     (set #what-versions    "\nHvilke(n) versjon(er) skal installeres?")
  360.     (set #what-versions-help
  361.                (cat    "\nPowerCache leveres i to versjoner. Den ene, 68000 versjonen, "
  362.                 "vil virke på alle maskiner, mens den andre "
  363.                 "krever en 68020 (eller bedre) maskin. Hvis du har en Amiga 1200, "
  364.                 "Amiga 2500, Amiga 3000 eller Amiga 4000, eller hvis du har et "
  365.                 "accelleratorkort i din maskin, så bør du installere 68020 "
  366.                 "versjonen. Denne versjonen benytter spesielle, utvalgte 68020 "
  367.                 "instruksjoner som forbedrer programmets yteevne.\n\nDu kan "
  368.                 "installere begge versjoner av PowerCache hvis du ønsker.\n\n"
  369.                 @askoptions-help))
  370.  
  371.     (set #pc_68000        "PowerCache 68000")
  372.     (set #pc_68020        "PowerCache 68020+")
  373.  
  374.     (set #which-language-help
  375.                (cat    "\nAmiga kan benytte mange forskjellige språk.\n"
  376.                 "Dersom du ønsker at PowerCache skal bruke samme språk "
  377.                 "som Amiga Workbench, må det kopieres en språkfil "
  378.                 "til systemdisken din for hvert språk.\n\n"
  379.                 "For å redusere språkfilenes plassforbruk kan du velge "
  380.                 "å installere kun det eller de språk som "
  381.                 "du har bruk for.\n\n"
  382.                 "Klikk i boksene ved de språk du ønsker å ha tilgjengelige "
  383.                 "på din maskin.\n\n"
  384.                 @askoptions-help))
  385.  
  386.     (set #startup-help
  387.                (cat    "\nSelv om det ikke er strengt nødvendig, anbefales "
  388.                 "det at PowerCache: knyttes til skuffen PowerCache ligger i "
  389.                 "når programmet brukes. Dette kan gjøres for hånd, v.hj.a. "
  390.                 "AmigaDOS kommandoen 'Assign', eller automatisk, v.hj.a. dette "
  391.                 "installasjons programmet.\n\n"
  392.                 "To ting vil skje:\n\n"
  393.                 "· The Installer sjekker om din startup-sequence\n"
  394.                 "  kjører filen S:User-Startup, og om nødvendig\n"
  395.                 "  endrer den så dette skjer.\n\n"
  396.                 "· The Installer ser gjennom S:User-Startup filen\n"
  397.                 "  og setter inn de korrekte Assign kommandoer der\n"
  398.                 "  det er nødvendig.\n\n"
  399.                 @startup-help))
  400. ))
  401.  
  402. ;***************************************************************************
  403. ; Make sure we are running under a 2.04 ROM
  404. ;***************************************************************************
  405.  
  406. (if (< (/ (getversion) 65536) 37)
  407. (
  408.     (abort #bad-kick)
  409. ))
  410.  
  411.  
  412. ;***************************************************************************
  413. ; Ask user where he wants the PowerCache files
  414. ;***************************************************************************
  415.  
  416. (set @target-dir
  417.     (askdir
  418.         (prompt #targetstr)
  419.         (help #targetsel @askdir-help)
  420.         (default "SYS:Tools/Commodities")
  421.     )
  422. )
  423.  
  424. ;***************************************************************************
  425. ; What hardware does the user have?
  426. ;***************************************************************************
  427.  
  428. (if (patmatch "680[234]0" (database "cpu"))
  429.     (set cpuvers 2)
  430.     (set cpuvers 1)
  431. )
  432.  
  433. ;***************************************************************************
  434. ; Ask user which versions of PowerCache to install
  435. ; Suggest the appropriate version, using the CPU calculation
  436. ; above
  437. ;***************************************************************************
  438.  
  439. (user 2)
  440. (set whatvers
  441.     (askoptions
  442.         (prompt #what-versions)
  443.         (help #what-versions-help)
  444.         (choices
  445.             #pc_68000
  446.             #pc_68020
  447.         )
  448.         (default cpuvers)
  449.     )
  450. )
  451. (user old_level)
  452.  
  453. ;***************************************************************************
  454. ; Copy reqtools.library to LIBS:
  455. ;***************************************************************************
  456.  
  457. (copylib
  458.     (prompt "\n" #copying-reqtools)
  459.     (help @copylib-help)
  460.     (source reqtoolslib)
  461.     (dest "LIBS:")
  462.     (confirm)
  463. )
  464.  
  465. ;***************************************************************************
  466. ; Make the PowerCache directory
  467. ;***************************************************************************
  468.  
  469. (set @target-dir (tackon @target-dir CreateDir))
  470.  
  471. (makedir
  472.     @target-dir
  473.     (infos)
  474.     (confirm)
  475.     (help @makedir-help)
  476.     (prompt #makingdir)
  477. )
  478.  
  479. ;***************************************************************************
  480. ; Copy the PowerCache executable(s) (and its/their icon(s))  :-)
  481. ;***************************************************************************
  482.  
  483. (set n 0)
  484.  
  485. (while
  486.     (set copyver
  487.         (select n
  488.             PowerCache
  489.             PowerCache020
  490.             ""
  491.         )
  492.     )
  493. (
  494.     (if (IN whatvers n)
  495.     (
  496.         (copyfiles
  497.             (prompt @copying-PowerCache)
  498.             (source copyver)
  499.             (dest @target-dir)
  500.             (infos)
  501.         )
  502.     ))
  503.  
  504.     (set n (+ n 1))
  505. ))
  506.  
  507. ;***************************************************************************
  508. ; Copy documentation files
  509. ;***************************************************************************
  510.  
  511. (makedir
  512.     (tackon @target-dir "Documentation")
  513.     (infos)
  514.     (confirm)
  515.     (prompt #copying-docs)
  516.     (help #copying-docs-help)
  517. )
  518.  
  519. (copyfiles
  520.     (prompt @copying-docs)
  521.     (source DocDir)
  522.     (dest (tackon @target-dir "Documentation"))
  523.     (pattern "#?.guide")
  524.     (infos)
  525.     (files)
  526. )
  527.  
  528. ;***************************************************************************
  529. ; Copy catalog files (only relevant on v38+ machines)
  530. ;***************************************************************************
  531.  
  532. (if (exists "LOCALE:")
  533. (
  534.     (user 2)
  535.     (set lang
  536.         (askoptions
  537.             (prompt #which-language)
  538.             (help #which-language-help)
  539.             (choices
  540.                 "English"
  541.                 "Dansk"
  542.                 "Français"
  543.                 "Norsk"
  544.                 "Deutsch"
  545.             )
  546.             (default default_lang)
  547.         )
  548.     )
  549.     (user old_level)
  550.  
  551.     (set n 0)
  552.  
  553.     (while
  554.         (set language
  555.             (select n
  556.                 "English"
  557.                 "Dansk"
  558.                 "Français"
  559.                 "Norsk"
  560.                 "Deutsch"
  561.                 ""
  562.             )
  563.         )
  564.     (
  565.         (if (IN lang n)
  566.         (
  567.             (if (<> 0 n)
  568.             (
  569.                 (makedir (cat "LOCALE:Catalogs/" language))
  570.  
  571.                 (copyfiles
  572.                     (source (cat catalogdir language))
  573.                     (dest (cat "LOCALE:Catalogs/" language))
  574.                     (all)
  575.                 )
  576.             ))
  577.         ))
  578.  
  579.         (set n (+ n 1))
  580.     ))
  581. ))
  582.  
  583. ;***************************************************************************
  584. ; Modify S:User-Startup if necessary
  585. ;***************************************************************************
  586.  
  587. (startup
  588.     (
  589.         "PowerCache"
  590.         (prompt #fixing-ss)
  591.         (help #startup-help)
  592.         (command (cat "Assign PowerCache: \"" @target-dir "\" DEFER"))
  593.     )
  594. )
  595.